scratch/Testing text.r

In delabj/genArt:

data_init <- gen_text(lines = 70)

data_init$x_noise1 <- ambient::gen_perlin(data_init$x2, .01, seed = 42)
data_init$x_noise2 <- ambient::gen_perlin(data_init$x2, .005, seed = 42)
data_init$x_noise3 <- ambient::gen_perlin(data_init$x2, .0025, seed = 42)
data_init$x_noise4 <- ambient::gen_perlin(data_init$x2, .00125, seed = 42)



ggplot(data_init)+
  geom_path(aes(x2+x_noise4,y2, group = group), alpha =0.003125, size= 4)+
  geom_path(aes(x2+x_noise3,y2, group = group), alpha =0.00625, size= 3)+
  geom_path(aes(x2+x_noise2,y2, group = group), alpha =.0125, size= 2.5)+
  geom_path(aes(x2+x_noise1,y2, group = group), alpha =.125, size= 2)+
  geom_path(aes(x2,y2, group = group))+
  theme_canvas()



data_init <- gen_text(lines = 70, granularity = 1/3, use_spaces = FALSE)

data_init$char_num <- floor(data_init$x)
data_init %>%
  mutate(
    g2=paste0(group, "_", char_num)
  ) %>%
  tibble()%>%
  filter(y==1)->test


data_init %>%
  mutate(
    g2=paste0(group, "_", char_num)
  ) %>%
  tibble()%>%
  filter(char_num!=30)%>%
ggplot()+
  ggalt::geom_xspline(aes(x2,y2, group = g2), spline_shape = -1)+
  theme_canvas()